From ca8082d4d18409bf2a3d4ee618d5a5ac6639eeac Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 20 Jun 2009 23:23:48 +0000
Subject: [PATCH] (status_message): Pass Faset index argument as a lisp object,
 so as to work with USE_LISP_UNION_TYPE.

---
 src/process.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/process.c b/src/process.c
index 08030c944df..2fdb2c2cbb0 100644
--- a/src/process.c
+++ b/src/process.c
@@ -479,7 +479,7 @@ status_message (p)
 	  c1 = STRING_CHAR ((char *) SDATA (string), 0);
 	  c2 = DOWNCASE (c1);
 	  if (c1 != c2)
-	    Faset (string, 0, make_number (c2));
+	    Faset (string, make_number (0), make_number (c2));
 	}
       string2 = build_string (coredump ? " (core dumped)\n" : "\n");
       return concat2 (string, string2);
-- 
2.30.2